Public Class CAddress

    Dim _addID As Integer
    Dim _PersonID As Integer
    Dim _AddType As String
    Dim _Descrp1 As String
    Dim _Descrp2 As String
    Dim _PinCode As Integer
    Dim _City As Integer
    Dim _State As Integer
    Dim _Country As Integer
    Dim _Phone1 As String
    Dim _Phone2 As String
    Dim _Mobile1 As String
    Dim _Mobile2 As String
    Dim _Fax As String
    Dim _MailID As String
    Dim _WebSite As String
    Dim _Status As Char
    'Dim _objPerson As CPerson

    Public Property AddressID() As Integer
        Get
            Return _addID
        End Get
        Set(ByVal value As Integer)
            _addID = value
        End Set
    End Property
    Public Property PersonID() As Integer
        Get
            Return _PersonID
        End Get
        Set(ByVal value As Integer)
            _PersonID = value
        End Set
    End Property
    Public Property AddressType() As String
        Get
            Return _AddType
        End Get
        Set(ByVal value As String)
            _AddType = value
        End Set
    End Property
    Public Property Description1() As String
        Get
            Return _Descrp1
        End Get
        Set(ByVal value As String)
            _Descrp1 = value
        End Set
    End Property

    Public Property Description2() As String
        Get
            Return _Descrp2
        End Get
        Set(ByVal value As String)
            _Descrp2 = value
        End Set
    End Property

    Public Property PinCode() As String
        Get
            Return _PinCode
        End Get
        Set(ByVal value As String)
            _PinCode = value
        End Set
    End Property

    Public Property City() As Integer
        Get
            Return _City
        End Get
        Set(ByVal value As Integer)
            _City = value
        End Set
    End Property
    Public Property State() As Integer
        Get
            Return _State
        End Get
        Set(ByVal value As Integer)
            _State = value
        End Set
    End Property

    Public Property Country() As Integer
        Get
            Return _Country
        End Get
        Set(ByVal value As Integer)
            _Country = value
        End Set
    End Property

    Public Property PhoneNo1() As String
        Get
            Return _Phone1
        End Get
        Set(ByVal value As String)
            _Phone1 = value
        End Set
    End Property

    Public Property PhoneNo2() As String
        Get
            Return _Phone2
        End Get
        Set(ByVal value As String)
            _Phone2 = value
        End Set
    End Property

    Public Property MobileNo1() As String
        Get
            Return _Mobile1
        End Get
        Set(ByVal value As String)
            _Mobile1 = value
        End Set
    End Property

    Public Property MobileNo2() As String
        Get
            Return _Mobile2
        End Get
        Set(ByVal value As String)
            _Mobile2 = value
        End Set
    End Property

    Public Property Fax() As String
        Get
            Return _Fax
        End Get
        Set(ByVal value As String)
            _Fax = value
        End Set
    End Property
    Public Property EmailID() As String
        Get
            Return _MailID
        End Get
        Set(ByVal value As String)
            _MailID = value
        End Set
    End Property

    Public Property WebSiteAddress() As String
        Get
            Return _WebSite
        End Get
        Set(ByVal value As String)
            _WebSite = value
        End Set
    End Property
    Public Property Status() As Char
        Get
            Return _Status
        End Get
        Set(ByVal value As Char)
            _Status = value
        End Set
    End Property
    Public Function copy() As CAddress
        Dim destination As New CAddress
        With destination
            .AddressID = AddressID
            .AddressType = AddressType
            .Description1 = Description1
            .Description2 = Description2
            .City = City
            .State = State
            .Country = Country
            .PinCode = PinCode
            .PhoneNo1 = PhoneNo1
            .PhoneNo2 = PhoneNo2
            .Fax = Fax
            .EmailID = EmailID
            .WebSiteAddress = WebSiteAddress
        End With
        Return destination
    End Function
End Class
